From: Andreas Schwab <schwab@suse.de>
Date: Tue, 26 Nov 2013 09:00:32 +0000 (+0100)
Subject: * .gdbinit (xgettype): Add cast.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~2280
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=ed87760c27c2f15108082d2eb6f47aa717b45db9;p=emacs.git

* .gdbinit (xgettype): Add cast.
---

diff --git a/src/.gdbinit b/src/.gdbinit
index 1bfc293c466..275a1d8db88 100644
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -67,7 +67,7 @@ define xgettype
   else
     set $bugfix = $arg0
   end
-  set $type = (enum Lisp_Type) (USE_LSB_TAG ? $bugfix & (1 << GCTYPEBITS) - 1 : $bugfix >> VALBITS)
+  set $type = (enum Lisp_Type) (USE_LSB_TAG ? $bugfix & (1 << GCTYPEBITS) - 1 : (EMACS_UINT) $bugfix >> VALBITS)
 end
 
 # Set up something to print out s-expressions.
diff --git a/src/ChangeLog b/src/ChangeLog
index 9a32c174d8f..d2dbc187da9 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2013-11-26  Andreas Schwab  <schwab@suse.de>
+
+	* .gdbinit (xgettype): Add cast.
+
 2013-11-26  Glenn Morris  <rgm@gnu.org>
 
 	Preload leim-list.el.